10 REM    ASTEROID STORM BY JC HILTY
15 POKE53248+21,.:SYS65418
20 GOSUB850
30 PRINT"[147]"
40 GOSUB 1370
50 SP=255:GOSUB690
60 TI$="000000"
70 SYS828:IFPEEK(2)=4THENX2=X2-8:IFX2<50THENX2=50
71 IFPEEK(2)=8THENX2=X2+8:IFX2>255THENX2=255
72 IFA$=";" THEN X2=X2+8:IFX2>255 THEN X2=255
73 GETA$:IFA$="L" THEN X2=X2-8:IFX2<50 THEN X2=50
90 POKEV+12,X2
100 W1=PEEK(V+30)
110 IFW1AND64THENSC=SC+10:PRINT"[153]"TAB(10)SC"[157] "
120 ONLGOSUB380,470,390,410,380,430,450:L=L+1:IFL=8THENL=1
130 IFK=212THEN490
131 GETA$:ON-(A$="W")-(A$="X")*2-(A$="A")*3-(A$="D")*4GOSUB260,280,300,340
132 ON-(A$="E")-(A$="Q")*2-(A$="Z")*3-(A$="C")*4GOSUB360,320,330,370
133 IFA$=" " THEN 180
140 SYS828:ONPEEK(3)GOSUB260,280,,300,320,330,,340,360,370:POKEV,X1:POKEV+1,Y1
150 FB=-((PEEK(56320)AND16)=0):IFFB=1THEN180
160 PRINT"[155]"TAB(18)RIGHT$(TI$,3):IFVAL(TI$)>000200THEN 1650
170 GOTO70
180 POKEV+39,2:IFABS(PEEK(V)-PEEK(V+14))<GANDABS(PEEK(V+1)-PEEK(V+15))<GTHEN200
190 POKEV+39,7:GOTO70
200 POKEV+39,7:POKE2047,213:SC=SC+25:FORX=0TO24:POKES+X,0:NEXT
210 POKES+24,15:POKES+12,160:POKES+13,252:POKES+1,10:POKES+8,1:POKES+5,112
220 POKES+6,252:POKES+4,129:POKES+11,129:FORX=0TO50:NEXT:POKES+4,128
230 POKES+11,128:K=202:POKE2047,K:PRINT"[153]"TAB(10)SC"[157] "
240 POKEV+21,127:POKEV+14,INT(230*RND(5))+24:POKEV+15,INT(84*RND(4))+50
250 POKEV+21,255:GOTO70
260 Y1=Y1-8:IFY1<50THENY1=50
270 RETURN
280 Y1=Y1+8:IFY1>166THENY1=166
290 RETURN
300 X1=X1-8:IFX1<24THENX1=24
310 RETURN
320 GOSUB260:GOSUB300:RETURN
330 GOSUB280:GOSUB300:RETURN
340 X1=X1+8:IFX1>255THENX1=255
350 RETURN
360 GOSUB260:GOSUB340:RETURN
370 GOSUB280:GOSUB340:RETURN
380 POKE2047,K:K=K+1:RETURN
390 POKE2041,P2:P2=P2-1:IFP2=191THENP2=199
400 RETURN
410 POKE2042,P3:P3=P3-1:IFP3=191THENP3=201
420 RETURN
430 POKE2043,P1:P1=P1-1:IFP1=191THENP1=199
440 RETURN
450 POKE2044,P5:P5=P5-1:IFP5=191THENP5=201
460 RETURN
470 POKE2045,P4:P4=P4-1:IFP4=191THENP4=201
480 RETURN
490 POKE50432,0
500 FORX=0TO24:POKES+X,0:NEXT:POKES+24,15:POKES+5,80:POKES+6,243:POKES+3,7
510 FORT=40TO17STEP-1:POKES+4,65:POKEV+45,2:POKES+1,T:FORDR=0TO10:NEXTDR
520 POKEV+45,1:FORDR=0TO10:NEXTDR:NEXTT:POKES+4,64:POKEV+21,191
530 LI=LI-1
540 PRINT"[154]"TAB(30)LI"[157] ":IFLI=0THEN560
550 GOSUB730:K=202:POKE2047,K:GOTO70
560 GOTO 1650
580 IFSC>HSTHENHS=SC
590 :
600 :
670 SC=0:L=1:LI=3:X1=170:Y1=132:X2=165:GOSUB690:GOTO60
680 REM    PLAYING FIELD&SPRITE INITIALIZATION
690 IF SP= 62 THEN 720
700 PRINT"[147]    [211][195][207][210][197] [153]"0"[157] ";TAB(23)" [211][200][201][208][211] [154]"LI"[157] "
710 FORT=0TO60:A=INT(918*RND(5)+1024):POKEA+54272,1:POKEA,46:NEXT
720 POKEV+29,255:POKEV+23,0:POKE650,128
730 POKEV+16,2:POKE2040,214:POKEV+39,7:POKEV,X1:POKEV+1,Y1
740 POKE2041,P2:POKEV+40,5:POKEV+2,50:POKEV+3,186
750 POKE2042,P3:POKEV+41,6:POKEV+4,165:POKEV+5,50
760 POKE2043,P1:POKEV+42,7:POKEV+6,24:POKEV+7,186
770 POKE2044,P4:POKEV+43,8:POKEV+8,255:POKEV+9,230
780 POKE2045,P5:POKEV+44,4:POKEV+10,60:POKEV+11,229
790 POKE2046,212:POKEV+45,14:POKEV+12,X2:POKEV+13,Y2
800 POKE2047,K:POKEV+46,15:POKEV+14,170:POKEV+15,80
810 POKE50438,1:POKE50441,254:POKE50442,255:POKE50443,2:POKE50444,254
820 POKE50435,2:POKE50436,255:POKE50439,255:POKE50440,2
830 POKE50688,62:POKE50432,062:POKEV+21,SP :W1=PEEK(V+30):RETURN
840 REM    TITLE
850 POKE53280,0:POKE53281,0:PRINT"[147]"
860 FORT=0TO100:A=INT(960*RND(5)+1024):POKEA+54272,1:POKEA,46:NEXT
870 PRINT""CHR$(142)""TAB(11)"[158] LOADSTAR PRESENTS "
880 PRINT" [169][154]    "TAB(33)"   [223]"
890 PRINT"[169] [154]   [154] [146] [169][154]   [146] [169][154]   [169][154]      [223][146] [154]   [223][146] [154] [223][146] [154]   [154] [223]"
900 PRINT"  [154]    [146]  [154]  [146][169]   [154] [146]  [154]  [146][169][154]  [154]  [146] [154]  [154]  [146] [154]  [146] ";
910 PRINT"[154]   [154]  [223]"
920 PRINT"  [154]    [146]  [154] [146]     [154] [146]  [154] [146][169] [154]    [146] [154]  [154]  [146] [154]  [146] ";
930 PRINT"[154]   [154]   "
940 PRINT"  [154]   [154] [146]  [154]   [146]   [154] [146]  [154]     [154]  [146] [154]  [154]  [146] [154]  [146] ";
950 PRINT"[154]   [154]   "
960 PRINT"  [154]   [154] [146]    [154] [146]   [154] [146]    [146][169][223]   [146] [154]    [146] [154]  [146] ";
970 PRINT"[154]   [154]   "
980 PRINT"  [154]   [154] [146]  [154]   [146]   [146][169]          [223]   [146] [154]  [146] [154]   [154]   "
990 PRINT"  [154]   [154] [146]    [146][169]"TAB(30)"[223] [146] [154]      "
1000 PRINT"     [146][169]"TAB(33)"[223]     ":PRINT"    [146][169]"TAB(34)"[223]    ":PRINT
1010 PRINTTAB(8)"[169][154]    [169][154]   [169][154]   [223][154]   [223][154][223][146]  [169][223]"
1020 PRINTTAB(8)" [154]   [146][169]  [154] [146]  [154]  [154]  [154]  [154]  [154] [223][169]  "
1030 PRINTTAB(8)" [154]    [146]  [154] [146]  [154]  [154]  [154]    [154]     "
1040 PRINTTAB(8)"    [154] [146]  [154] [146]  [154]  [154]  [154]    [154]     "
1050 PRINTTAB(8)" [154]    [146]  [154] [146]  [154]    [154]  [154]  [154]   [154]  "
1060 PRINTTAB(8)"    [146][169]  [146][169] [223]   [146][169][223]   [146][223]    ":PRINT
1070 PRINT"             BY J.C. HILTY "
1080 PRINT"             COPYRIGHT 1987"
1090 S=54272:FORX=0TO24:POKES+X,0:NEXT:POKES+24,15:POKES+5,80:POKES+12,160
1100 POKES+6,255:POKES+13,252:POKES+4,17:POKES+4,16
1110 FORX=255TO50STEP-1:POKES+1,X:FORT=0TO5:NEXT:NEXT
1120 POKES+1,10:POKES+8,1:POKES+5,112:POKES+6,252:POKES+4,129:POKES+11,129
1130 Z=0:FORX=0TO30:POKE53281,Z:POKE53280,Z:Z=Z+1:IFZ=15THENZ=0
1140 NEXT:POKE53281,0:POKE53280,0
1150 PRINT:IF BG=0 THEN PRINT"         [155]PLEASE WAIT... LOADING[145]
1160 [151]S[170]4,128:[151]S[170]11,128:A[178]0
1170 [139] BG [178] 1 [167] 1210
1180 [151]147,0:[158]57812"ASTEROID.SP",8,1:[158]62631
1190 [151]147,0:[158]57812"ASTEROID.MVT",8,1:[158]62631
1200 [129]X[178]828[164]848:[135]A:[151]X,A:[130]
1210 V[178]53248:SC[178]0:HS[178]0:LI[178]3:L[178]1:P1[178]195:P2[178]199:P3[178]201:P4[178]192:P5[178]197:K[178]202:G[178]12
1220 X1[178]170:Y1[178]132:X2[178]165:Y2[178]180:BG[178]1
1230 [129]X[178]50433[164]50448:[151]X,0:[130]:[151]50688,255:[151]50432,0:[158]51104
1240 SP[178]62:[141]690:[153]"SYS         PRESS SPACE TO CONTINUE  "
1250 [161]A$:[139]A$[179][177]" "[167]1250
1260 [142]
1270 [131] 173,0,220,41,31,73,31,133,3,173,1,220,73,255,133,2,5,3,133,144,96
1280 [153]"ONONONONON"
1281 [153]"          STR$(null) (null)(null)(null) (null)RIGHT$(null)LEFT$ (null)(null) (null)(null)RIGHT$(null)?     "
1290 [161]A$:[139]A$[178]""[167]1290
1300 [139]A$[178]"Y"[176]A$[178]"(null)"[167] 1330
1310 [139]A$[178]"N"[176]A$[178]"(null)"[167] 20
1320 [137] 1290
1330 [153]"LOAD":[159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
1340 [139]ER[179][177]63 [167] [153]"LOAD":[128]
1350 [147]"HELLO CONNECT",8,1
1360 :
1370 [153]"LOAD"
1371 [151]53248[170]21,.
1380 :
1390 [153]"         LISTOR``````````````````^"
1400 [153]"         }                  }"
1410 [153]"         (null)  ATNSTEROID (null)TORM  LIST(null)"
1420 [153]"         }  PRINT#TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(  LIST}"
1430 [153]"         }   instructions   LIST}"
1440 [153]" OR```````EXP                  /````````^"
1450 [153]" }                                   }"
1460 [153]" }  CONTplayer 1               CONTplayer 2  LIST}"
1470 [153]" (null)  PRINT#TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(   LISTORTANTANTANTANTANTANTAN^   PRINT#TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(  LIST(null)"
1480 [153]" (null)   DEFMID$(null)(null) 2    LISTOREXP       /^   DEFMID$(null)(null) 1LIST    (null)"
1490 [153]" (null)            (null)         (null)            (null)"
1500 [153]" (null)  CONTATNND / (null)R  LIST(null)CLOSE CLR(null)(null)VAL(null)(null)  LIST(null)  CONTATNND / (null)R LIST (null)"
1510 [153]" (null)            (null)CLOSE        (null)            (null)"
1520 [153]" (null)    PRINT(null)EYS    LIST(null)  CLR(null)(null)ATNLENVAL  LIST(null)    PRINT(null)EYS    LIST(null)"
1530 [153]" (null)            (null)CLOSE        (null)CLOSE           (null)"
1540 [153]" (null)  DEF(null)WAIT  (null)WAIT  VALWAITLIST   /^       OREXP            (null)"
1550 [153]" (null)  DEFATNWAIT     STR$WAIT    LIST/TANTANTANTANTANTANTANEXP     DEF(null)WAIT   DEF;WAIT   LIST(null)"
1560 [153]" (null)  DEF(null)WAIT  (null)WAIT  LENWAITLIST                          (null)"
1570 [153]" (null)                                   (null)"
1571 [153]" (null)   DEF(null)(null)ATNLENVALWAITLIST                           (null)"
1572 [153]" (null)                                   (null)"
1580 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
1590 [161]A$:[139]A$[179][177]" "[167] 1590
1600 [142]
1650 :
1660 [153]"LOAD":[151]53248[170]21,.
1661 [151]50432,.:K[178]202
1662 [139] SC[177]HS [167] HS[178]SC
1665 HC$[178][201]("0000"[170][201]([196](HS),[195]([196](HS))[171]1),4)
1666 SC$[178][201]("0000"[170][201]([196](SC),[195]([196](SC))[171]1),4)
1670 [153]
1675 [153]"           PRINT CHR$ ATNCLOSE(null) VAL   (null) (null) VAL (null)"
1680 [153]"      ATNSTEROID (null)TORM'S LEFT$IGH (null)CORE"
1690 [153]"      PRINT#TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
1700 [153]
1710 [153]
1720 [153]"    PRINT            WAIT    DEF               "
1730 [153]"    PRINT hIGH sCORE WAIT    DEF cURRENT sCORE "
1740 [153]"    PRINT TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( WAIT    DEF TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( "
1750 [153]"    PRINT    "HC$"    WAIT    DEF      "SC$"     "
1760 [153]"    PRINT            WAIT    DEF               "
1770 [153]
1780 [153]
1790 [153]
1800 [153]
1810 [153]"     CONT                              "
1820 [153]"       STR$O YOU WISH TO PLAY AGAIN?  "
1830 [153]"                                   "
1831 [153]"             (null))ES  (null)(null)  (null))O         "
1832 [153]"                                   "
1850 [161]A$:[139]A$[178]"" [167] 1850
1851 [139]A$[178]"Y"[176]A$[178]"(null)"[167] 670
1870 [139]A$[178]"N"[176]A$[178]"(null)"[167] 1280
1871 [137] 1850